Adventures with Oslo: Tools & Gadgets/Adventures with Oslo - Tools and Gadgets.ISO/mac/Ad/Mod04/squares.Dir/00031.ls

Text File | 1994-09-23 | 1.4 KB | 49 lines

on startMovie
  set HC to the number of cast "handCursor"
  cursor([HC, HC + 1])
  when mouseUp then checkLoc
end

on checkLoc
  if the clickOn <> 0 then
    set horiz to the locH of sprite the clickOn
    set vert to the locV of sprite the clickOn
    if (constrainH(2, horiz) = horiz) and (constrainV(2, vert) = vert) then
      if ((horiz < 146) and (vert < 205)) or ((horiz > 265) and (vert < 205)) or ((horiz < 146) and (vert > 324)) or ((horiz > 265) and (vert > 324)) then
        nothing()
      else
        set snapH to (horiz - 106) / 40
        set snapV to (vert - 165) / 40
        if snapH > 4 then
          set snapH to 4
        end if
        if snapV > 4 then
          set snapV to 4
        end if
        set the locH of sprite the clickOn to 127 + (snapH * 40)
        set the locV of sprite the clickOn to 186 + (snapV * 40)
        updateStage()
        checkForWinner()
      end if
    end if
  end if
end

on checkForWinner
  set spriteNo to 3
  set soFarSoGood to 1
  repeat while (spriteNo < 24) and soFarSoGood
    if the locH of sprite spriteNo <> word spriteNo - 2 of field "hLocs" then
      set soFarSoGood to 0
    end if
    if the locV of sprite spriteNo <> word spriteNo - 2 of field "vLocs" then
      set soFarSoGood to 0
    end if
    set spriteNo to spriteNo + 1
  end repeat
  if soFarSoGood then
    puppetSound("Charge Fanfare.S")
    go(the frame + 1)
  end if
end